Voorbeeld van de instructie Do...Loop

Dit voorbeeld laat zien hoe de instructies Do...Loop kunnen worden gebruikt. De binnenste instructie Do...Loop lust 10 keer, stelt de waarde van de vlag in op False en sluit voortijdig af met behulp van de instructie Exit Do. De buitenste lus sluit onmiddellijk af na controle van de waarde van de vlag.

Dim Check, Counter
Check = True: Counter = 0    ' Initialize variables.
Do    ' Outer loop.
    Do While Counter < 20    ' Inner loop.
        Counter = Counter + 1    ' Increment Counter.
        If Counter = 10 Then    ' If condition is True.
            Check = False    ' Set value of flag to False.
            Exit Do    ' Exit inner loop.
        End If
    Loop
Loop Until Check = False    ' Exit outer loop immediately.